﻿Imports System.Data.OleDb
Public Class frmNewControlador

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Limpiar(grbdatosControler)
        Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (txtnomAuditor.Text = "") Or (txtapeAuditor.Text = "") Then
            MsgBox("Complete Los campos", MsgBoxStyle.Critical, "ERROR!")
        Else
            Dim newControler As New C_agregarDatos
            Dim nomap As String
            titulo(grbdatosControler)
            nomap = txtnomAuditor.Text + " " + txtapeAuditor.Text
            newControler.NuevoAuditor(nomap)
            frmEdicionAtencion.cbo_controla.Items.Clear()
            CargarAuditor(frmEdicionAtencion.cbo_controla)
            Limpiar(grbdatosControler)
            Close()
        End If
    End Sub
End Class